December 12, 2016

今天想跟大家聊聊地圖

從英國脫歐

從英國脫歐

到美國大選

到美國大選

到美國大選

台灣也不落人後(?

台灣也不落人後(?

台灣也不落人後(?

台灣也不落人後(?

台灣也不落人後(?

開放資料有很多圖資

  • 可是要怎麼用

  • 經緯度坐標系對不攏?

  • #!^$&%*#%

首先來看看

空間單位

  • 村里邊界

  • 縣市邊界

空間單位

  • 最小統計區

空間單位

  • 經濟發佈區(一級/二級/三級)

空間單位

  • 經濟發佈區(一級/二級/三級)

座標系統

  • TWD97(台灣適用,較新)

  • TWD67(台灣適用,較舊)

  • WGS84(全球通用:經緯度)

把握一個重點:始終使用同一種座標系統

為了轉換資料要花很多力氣

在R裡面使用API服務

在R裡面使用API服務

library(httr)
URL <- 'http://egis.moea.gov.tw/MoeaEGFxData_WebAPI_Inside/InnoServe/CodeSearchEcon/GetCount?'
QUERY <- list(x = 294129, y = 2774510)
res <- GET(url = URL, query = QUERY, encode = "json")
res
## Response [http://egis.moea.gov.tw/MoeaEGFxData_WebAPI_Inside/InnoServe/CodeSearchEcon/GetCount?x=294129&y=2774510]
##   Date: 2016-12-12 12:01
##   Status: 200
##   Content-Type: application/json;charset=utf-8
##   Size: 8.37 kB

在R裡面使用API服務

str(content(res)[[1]][[1]]$properties)
## List of 4
##  $ BUSM_COUNT: int 123
##  $ CMPY_COUNT: int 1366
##  $ FACT_COUNT: int 4684
##  $ Code3     : chr "A650150019"

在R裡面使用API服務

在R裡面使用API服務

library(httr)
URL <- 'http://124.219.79.152/MoeaEGFxData_WebAPI_Inside/WebAPI/BizSite/Query?'
QUERY <- list(x = 302592, y = 2771367)
res <- GET(url = URL, query = QUERY, encode = "json")
res
## Response [http://124.219.79.152/MoeaEGFxData_WebAPI_Inside/WebAPI/BizSite/Query?x=302592&y=2771367]
##   Date: 2016-12-12 12:01
##   Status: 200
##   Content-Type: application/json;charset=utf-8
##   Size: 242 B
str(content(res)[[1]])
## List of 10
##  $ CODE3     : chr "A630040068"
##  $ LAND_VALUE: int 687000
##  $ LAND_ZONE : chr "商業區"
##  $ POI_A     : chr "建成國中"
##  $ POI_B     : chr "無"
##  $ POI_C     : chr "行政院"
##  $ POI_D     : chr "國父史蹟紀念館,台北當代藝術館"
##  $ POP_LABOR : int 1363
##  $ POP_SUM   : int 1955
##  $ TOWN_NA   : chr "臺北市中山區"

今天主要是簡單的分享一下初入地圖坑的心得⋯⋯

Q&A

謝謝大家